home *** CD-ROM | disk | FTP | other *** search
/ Reverse Code Engineering RCE CD +sandman 2000 / ReverseCodeEngineeringRceCdsandman2000.iso / RCE / Tools / Turbo Pascal V7 / INTRFACE.ZIP / HISTLIST.INT < prev    next >
Text File  |  1992-11-03  |  1KB  |  46 lines
  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {       Turbo Pascal Version 7.0                        }
  5. {       Turbo Vision Unit                               }
  6. {                                                       }
  7. {       Copyright (c) 1991,92 Borland International     }
  8. {                                                       }
  9. {*******************************************************}
  10.  
  11. unit HistList;
  12.  
  13. {$O+,F+,X+,I-,S-}
  14.  
  15. {****************************************************************************
  16.    History buffer structure:
  17.  
  18.     Byte Byte String          Byte Byte String
  19.     +-------------------------+-------------------------+--...--+
  20.     | 0 | Id | History string | 0 | Id | History string |       |
  21.     +-------------------------+-------------------------+--...--+
  22.  
  23.  ***************************************************************************}
  24.  
  25. interface
  26.  
  27. uses Objects;
  28.  
  29. const
  30.   HistoryBlock: Pointer = nil;
  31.   HistorySize: Word = 1024;
  32.   HistoryUsed: Word = 0;
  33.  
  34. procedure HistoryAdd(Id: Byte; const Str: String);
  35. function HistoryCount(Id: Byte): Word;
  36. function HistoryStr(Id: Byte; Index: Integer): String;
  37. procedure ClearHistory;
  38.  
  39. procedure InitHistory;
  40. procedure DoneHistory;
  41.  
  42. procedure StoreHistory(var S: TStream);
  43. procedure LoadHistory(var S: TStream);
  44.  
  45.  
  46.